object FrmCobrador: TFrmCobrador
  Left = 363
  Top = 139
  Width = 589
  Height = 485
  BorderIcons = [biSystemMenu]
  Caption = 'Cadastro de Cobrador'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 410
    Width = 573
    Height = 37
    Align = alBottom
    BevelInner = bvLowered
    BorderWidth = 2
    TabOrder = 0
    object Bitnovo: TBitBtn
      Left = 5
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Inclui um novo Registro '
      Caption = '&Novo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Bitgrava: TBitBtn
      Left = 78
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Confirma Inclus'#227'o/Altera'#231#227'o do Registro '
      Caption = '&Gravar'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object Bitcancela: TBitBtn
      Left = 151
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Cancela Inclus'#227'o/Altera'#231#227'o do Registro '
      Caption = '&Voltar'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F5555000555555505555577755555557555}
      NumGlyphs = 2
    end
    object Bitedita: TBitBtn
      Left = 224
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Altera dados do Registro '
      Caption = '&Alterar'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object Bitexclui: TBitBtn
      Left = 297
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Exclui Registro '
      Caption = '&Excluir'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F3333333333000003333333333377777333333}
      NumGlyphs = 2
    end
    object Bitpesquisa: TBitBtn
      Left = 445
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Localiza Registro '
      Caption = '&Procurar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Visible = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
    object Bitfecha: TBitBtn
      Left = 370
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Fecha Tela de Cadastro '
      Caption = '&Sair'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 573
    Height = 410
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 571
      Height = 40
      Align = alTop
      BevelInner = bvLowered
      BorderWidth = 2
      Caption = 'Cobrador'
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -27
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 492
        Top = 4
        Width = 75
        Height = 32
        Align = alRight
        Caption = 'Registros'
        Color = clCaptionText
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        object edtRegistro: TEdit
          Left = 0
          Top = 14
          Width = 75
          Height = 18
          AutoSize = False
          Color = clWhite
          Ctl3D = False
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 41
      Width = 571
      Height = 368
      Align = alClient
      BevelInner = bvLowered
      BorderWidth = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label1: TLabel
        Left = 22
        Top = 18
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = EdtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 22
        Top = 59
        Width = 28
        Height = 13
        Caption = 'Nome'
        FocusControl = edtNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 22
        Top = 100
        Width = 56
        Height = 15
        Caption = 'Comiss'#227'o'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Reference Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 4
        Top = 151
        Width = 563
        Height = 194
        Hint = 
          'Click na coluna para habilitar alterar e excluir ou no titulo pa' +
          'ra ordenar'
        Align = alBottom
        DataSource = DtSrcDBGrid
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Verdana'
        TitleFont.Style = []
      end
      object SbHints: TStatusBar
        Left = 4
        Top = 345
        Width = 563
        Height = 19
        Color = clWhite
        Panels = <
          item
            Alignment = taCenter
            Width = 50
          end>
      end
      object EdtCodigo: TDBEdit
        Tag = 1
        Left = 22
        Top = 31
        Width = 47
        Height = 21
        Hint = 'C'#243'digo da Se'#231#227'o '
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'SEC_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object edtNome: TDBEdit
        Tag = 1
        Left = 22
        Top = 72
        Width = 297
        Height = 21
        Hint = 'Nome da Se'#231#227'o '
        CharCase = ecUpperCase
        DataField = 'SEC_NOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object edtComissao: TDBEdit
        Left = 22
        Top = 116
        Width = 97
        Height = 21
        CharCase = ecUpperCase
        DataField = 'SEC_COMISSAO'
        DataSource = DtSrc
        MaxLength = 9
        TabOrder = 4
      end
    end
  end
  object DtSrc: TDataSource
    DataSet = SQLC_Secao
    Left = 24
  end
  object DtSrcDBGrid: TDataSource
    AutoEdit = False
    DataSet = CDS_Consulta_DbGrid
    Left = 464
    Top = 368
  end
  object ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      
        'select sec_codigo as Codigo, sec_nome as Nome  from Secao order ' +
        'by sec_nome')
    Params = <>
    Left = 121
    Top = 321
  end
  object DSP_Consulta: TDataSetProvider
    DataSet = ZSQLC_ConsultaDbGrid
    Left = 225
    Top = 345
  end
  object CDS_Consulta_DbGrid: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_Consulta'
    Left = 337
    Top = 353
    object CDS_Consulta_DbGridCODIGO: TStringField
      FieldName = 'CODIGO'
      Required = True
      Size = 3
    end
    object CDS_Consulta_DbGridNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 40
    end
  end
  object SQLC_Secao: TSQLClientDataSet
    CommandText = 'select * from SECAO where sec_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
        Value = ''
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 90
    object SQLC_SecaoSEC_CODIGO: TStringField
      FieldName = 'SEC_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_SecaoSEC_NOME: TStringField
      FieldName = 'SEC_NOME'
      Required = True
      Size = 40
    end
    object SQLC_SecaoSEC_COMISSAO: TFMTBCDField
      FieldName = 'SEC_COMISSAO'
      Precision = 15
      Size = 2
    end
  end
end
